﻿<Serializable()> _
Public Class EunidInmobiliarias

#Region "           Atributos                       "
    Private _idEmpresa As Int32
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idEdiMzn As Int32
    Private _EediMazn As EedificioManz
    Private _idUndInmob As Int32
    Private _EmodeloInmueble As EmodeloInmueble
    Private _nroInmueble As String
    Private _nroPiso As Int32
    Private _areaTerrModelo As Decimal
    Private _areaTechada As Decimal
    Private _areaConstruida As Decimal
    Private _areaVendible As Decimal
    Private _valorVenta As Decimal
    Private _descuento As Decimal
    Private _dsctoMonto As Decimal
    Private _precioNeto As Decimal
    Private _precioBase As Decimal
    Private _Emoneda As Emoneda
    Private _comision As Decimal
    Private _porcAcciones As Decimal
    Private _precioMCuadrs As Decimal
    Private _EstadoInmueble As EestadoInmueble
    Private _observaciones As String
    Private _bloqueado As Int16
    Private _descBloqueado As String
    Private _areaTerraza As Decimal


    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32

    Private _descMoneda As String
    Private _descModelo As String
    Private _descTpoInmueble As String
    Private _descEstadoInmueble As String

    Private _inmuebles As String

    '-------    MENU SEGUIMIENTO    --------'
    Private _idSeparacionVenta As Int32
    Private _idSeparacionVentaDetalle As Int32
    Private _idFormaPago As Int32
    Private _tpoGestion As Int32
    Private _nroPartida As String

    '-------   MENU ATENCION CLIENTE  ------'
    Private _idProforma As Int32
    Private _idProformaDetalle As Int32
    Private _nomEdiMzn As String
    Private _nomModelo As String

    '-------   MENU REPORTE INMUEBLES POR ETAPA  ------'
    Private _nroDocumento As String
    Private _nroDocumentoCy As String
    Private _Ecliente As Ecliente
    Private _Econyugue As Ecliente
    Private _clienteVenta As String
    Private _correlativo As Int64
    '---------------------------------------'
    Private _Vendedor As String

    Private _estacionamientoModelo As String
    Private _nroEstacionamiento As String
    Private _estacionamientoModelo2 As String
    Private _nroEstacionamiento2 As String
    Private _nroDeposito As String
    Private _precioDep As Decimal
    Private _precioVentaDep As Decimal
    Private _precioEstac1 As Decimal
    Private _precioEstac2 As Decimal
    Private _precioDeposito As Decimal
    Private _precioTotalVenta As Decimal

#End Region

#Region "           Propiedades                     "
    Public Property idEmpresa() As Int32
        Get
            Return _idEmpresa
        End Get
        Set(ByVal value As Int32)
            _idEmpresa = value
        End Set
    End Property
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idEdiMzn() As Int32
        Get
            Return _idEdiMzn
        End Get
        Set(ByVal value As Int32)
            _idEdiMzn = value
        End Set
    End Property
    Public Property EediMazn() As EedificioManz
        Get
            Return _EediMazn
        End Get
        Set(ByVal value As EedificioManz)
            _EediMazn = value
        End Set
    End Property
    Public Property idUndInmob() As Int32
        Get
            Return _idUndInmob
        End Get
        Set(ByVal value As Int32)
            _idUndInmob = value
        End Set
    End Property
    Public Property EmodeloInmueble() As EmodeloInmueble
        Get
            Return _EmodeloInmueble
        End Get
        Set(ByVal value As EmodeloInmueble)
            _EmodeloInmueble = value
        End Set
    End Property
    Public Property nroInmueble() As String
        Get
            Return _nroInmueble
        End Get
        Set(ByVal value As String)
            _nroInmueble = value
        End Set
    End Property
    Public Property nroPiso() As Int32
        Get
            Return _nroPiso
        End Get
        Set(ByVal value As Int32)
            _nroPiso = value
        End Set
    End Property
    Public Property areaTerrModelo() As Decimal
        Get
            Return _areaTerrModelo
        End Get
        Set(ByVal value As Decimal)
            _areaTerrModelo = value
        End Set
    End Property
    Public Property areaTechada() As Decimal
        Get
            Return _areaTechada
        End Get
        Set(ByVal value As Decimal)
            _areaTechada = value
        End Set
    End Property
    Public Property areaConstruida() As Decimal
        Get
            Return _areaConstruida
        End Get
        Set(ByVal value As Decimal)
            _areaConstruida = value
        End Set
    End Property
    Public Property areaVendible() As Decimal
        Get
            Return _areaVendible
        End Get
        Set(ByVal value As Decimal)
            _areaVendible = value
        End Set
    End Property
    Public Property valorVenta() As Decimal
        Get
            Return _valorVenta
        End Get
        Set(ByVal value As Decimal)
            _valorVenta = value
        End Set
    End Property
    Public Property descuento() As Decimal
        Get
            Return _descuento
        End Get
        Set(ByVal value As Decimal)
            _descuento = value
        End Set
    End Property
    Public Property dsctoMonto() As Decimal
        Get
            Return _dsctoMonto
        End Get
        Set(ByVal value As Decimal)
            _dsctoMonto = value
        End Set
    End Property
    Public Property precioNeto() As Decimal
        Get
            Return _precioNeto
        End Get
        Set(ByVal value As Decimal)
            _precioNeto = value
        End Set
    End Property
    Public Property precioBase() As Decimal
        Get
            Return _precioBase
        End Get
        Set(ByVal value As Decimal)
            _precioBase = value
        End Set
    End Property
    Public Property Emoneda() As Emoneda
        Get
            Return _Emoneda
        End Get
        Set(ByVal value As Emoneda)
            _Emoneda = value
        End Set
    End Property
    Public Property comision() As Decimal
        Get
            Return _comision
        End Get
        Set(ByVal value As Decimal)
            _comision = value
        End Set
    End Property
    Public Property porcAcciones() As Decimal
        Get
            Return _porcAcciones
        End Get
        Set(ByVal value As Decimal)
            _porcAcciones = value
        End Set
    End Property
    Public Property precioMCuadrs() As Decimal
        Get
            Return _precioMCuadrs
        End Get
        Set(ByVal value As Decimal)
            _precioMCuadrs = value
        End Set
    End Property
    Public Property EestadoInmueble() As EestadoInmueble
        Get
            Return _EstadoInmueble
        End Get
        Set(ByVal value As EestadoInmueble)
            _EstadoInmueble = value
        End Set
    End Property
    Public Property observaciones() As String
        Get
            Return _observaciones
        End Get
        Set(ByVal value As String)
            _observaciones = value
        End Set
    End Property
    Public Property bloqueado() As Int16
        Get
            Return _bloqueado
        End Get
        Set(ByVal value As Int16)
            _bloqueado = value
        End Set
    End Property
    Public Property descBloqueado() As String
        Get
            Return _descBloqueado
        End Get
        Set(ByVal value As String)
            _descBloqueado = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property

    Public Property descMoneda() As String
        Get
            Return _descMoneda
        End Get
        Set(ByVal value As String)
            _descMoneda = value
        End Set
    End Property
    Public Property descModelo() As String
        Get
            Return _descModelo
        End Get
        Set(ByVal value As String)
            _descModelo = value
        End Set
    End Property
    Public Property descTpoInmueble() As String
        Get
            Return _descTpoInmueble
        End Get
        Set(ByVal value As String)
            _descTpoInmueble = value
        End Set
    End Property
    Public Property descEstadoInmueble() As String
        Get
            Return _descEstadoInmueble
        End Get
        Set(ByVal value As String)
            _descEstadoInmueble = value
        End Set
    End Property

    Public Property inmuebles() As String
        Get
            Return _inmuebles
        End Get
        Set(ByVal value As String)
            _inmuebles = value
        End Set
    End Property

    '-------    MENU SEGUIMIENTO    --------'
    Public Property idSeparacionVenta() As Int32
        Get
            Return _idSeparacionVenta
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVenta = value
        End Set
    End Property
    Public Property idSeparacionVentaDetalle() As Int32
        Get
            Return _idSeparacionVentaDetalle
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVentaDetalle = value
        End Set
    End Property
    Public Property idFormaPago() As Int32
        Get
            Return _idFormaPago
        End Get
        Set(ByVal value As Int32)
            _idFormaPago = value
        End Set
    End Property
    Public Property tpoGestion() As Int32
        Get
            Return _tpoGestion
        End Get
        Set(ByVal value As Int32)
            _tpoGestion = value
        End Set
    End Property
    Public Property nroPartida() As String
        Get
            Return _nroPartida
        End Get
        Set(ByVal value As String)
            _nroPartida = value
        End Set
    End Property

    '-------   MENU ATENCION CLIENTE  ------'
    Public Property idProforma() As Int32
        Get
            Return _idProforma
        End Get
        Set(ByVal value As Int32)
            _idProforma = value
        End Set
    End Property
    Public Property idProformaDetalle() As Int32
        Get
            Return _idProformaDetalle
        End Get
        Set(ByVal value As Int32)
            _idProformaDetalle = value
        End Set
    End Property
    Public Property nomEdiMzn() As String
        Get
            Return _nomEdiMzn
        End Get
        Set(ByVal value As String)
            _nomEdiMzn = value
        End Set
    End Property
    Public Property nomModelo() As String
        Get
            Return _nomModelo
        End Get
        Set(ByVal value As String)
            _nomModelo = value
        End Set
    End Property

    '-------   MENU REPORTE INMUEBLES POR ETAPA  ------'
    Public Property nroDocumento() As String
        Get
            Return _nroDocumento
        End Get
        Set(ByVal value As String)
            _nroDocumento = value
        End Set
    End Property
    Public Property nroDocumentoCy() As String
        Get
            Return _nroDocumentoCy
        End Get
        Set(ByVal value As String)
            _nroDocumentoCy = value
        End Set
    End Property
    Public Property Ecliente() As Ecliente
        Get
            Return _Ecliente
        End Get
        Set(ByVal value As Ecliente)
            _Ecliente = value
        End Set
    End Property
    Public Property Econyugue() As Ecliente
        Get
            Return _Econyugue
        End Get
        Set(ByVal value As Ecliente)
            _Econyugue = value
        End Set
    End Property
    Public Property clienteVenta() As String
        Get
            Return _clienteVenta
        End Get
        Set(ByVal value As String)
            _clienteVenta = value
        End Set
    End Property
    Public Property correlativo() As Int64
        Get
            Return _correlativo
        End Get
        Set(ByVal value As Int64)
            _correlativo = value
        End Set
    End Property
    '---------------------------------------'
    Public Property Vendedor() As String
        Get
            Return _Vendedor
        End Get
        Set(ByVal value As String)
            _Vendedor = value
        End Set
    End Property
    Public Property areaTerraza() As Decimal
        Get
            Return _areaTerraza
        End Get
        Set(ByVal value As Decimal)
            _areaTerraza = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property idProyectoEdimznUndInmob() As String
        Get
            Return idProyecto & "-" & idEdiMzn & "-" & idUndInmob
        End Get
    End Property
    Public ReadOnly Property InmueblesDisponibles() As String
        Get
            'Return EmodeloInmueble.NombreTpoInmueble & "-" & nroInmueble
            Return Me.EediMazn.nomEdiMzn & ": - " & descModelo & ": - " & descTpoInmueble.ToUpper & ": " & nroInmueble
        End Get
    End Property
    'Public ReadOnly Property InmueblesDisponibles() As String
    '    Get
    '        Return EmodeloInmueble.nomModelo & "-" & EmodeloInmueble.EtpoInmueble.descTpoInmueble & "-" & nroInmueble
    '    End Get
    'End Property

    Public ReadOnly Property idEdimznUndInmobModelo() As String
        Get
            Return idEdiMzn.ToString + idUndInmob.ToString + EmodeloInmueble.idModelo.ToString
        End Get
    End Property
    Public ReadOnly Property idEdimznModeloUndInmob() As String
        Get
            Return idEdiMzn.ToString.Trim + ":" + EmodeloInmueble.idModelo.ToString.Trim + "-" + idUndInmob.ToString.Trim
        End Get
    End Property

    '-------    MENU SEGUIMIENTO    --------'
    Public ReadOnly Property idProyectoEtapaSeparacionVentaSeparacionVentaDetalle() As String
        Get
            Return idProyecto.ToString & "," & _
                   idEtapa.ToString & "," & _
                   idSeparacionVenta.ToString & "," & _
                   idSeparacionVentaDetalle.ToString
        End Get
    End Property
    Public ReadOnly Property EdificioTpoInmuebleModeloInmueble() As String
        Get
            Return nomEdiMzn & " - " & _
                   descTpoInmueble & " - " & _
                   nomModelo & " - " & _
                   nroInmueble
            'Return EediMazn.nomEdiMzn & " - " & _
            '       EmodeloInmueble.EtpoInmueble.descTpoInmueble & " - " & _
            '       EmodeloInmueble.nomModelo & " - " & _
            '       nroInmueble
        End Get
    End Property
    Public ReadOnly Property nombreCompletosCliente() As String
        Get
            Return _Ecliente.NombresCompletos
        End Get
    End Property
    Public ReadOnly Property nombreCompletosConyugue() As String
        Get
            Return _Econyugue.NombresCompletos
        End Get
    End Property
    '---------------------------------------'

    ' ********************************************************************************************************************************************
    Public Property estacionamientoModelo() As String
        Get
            Return _estacionamientoModelo
        End Get
        Set(ByVal value As String)
            _estacionamientoModelo = value
        End Set
    End Property

    Public Property nroEstacionamiento() As String
        Get
            Return _nroEstacionamiento
        End Get
        Set(ByVal value As String)
            _nroEstacionamiento = value
        End Set
    End Property

    Public Property estacionamientoModelo2() As String
        Get
            Return _estacionamientoModelo2
        End Get
        Set(ByVal value As String)
            _estacionamientoModelo2 = value
        End Set
    End Property

    Public Property nroEstacionamiento2() As String
        Get
            Return _nroEstacionamiento2
        End Get
        Set(ByVal value As String)
            _nroEstacionamiento2 = value
        End Set
    End Property

    Public Property nroDeposito() As String
        Get
            Return _nroDeposito
        End Get
        Set(ByVal value As String)
            _nroDeposito = value
        End Set
    End Property

    Public Property precioDep() As Decimal
        Get
            Return _precioDep
        End Get
        Set(ByVal value As Decimal)
            _precioDep = value
        End Set
    End Property

    Public Property precioVentaDep() As Decimal
        Get
            Return _precioVentaDep
        End Get
        Set(ByVal value As Decimal)
            _precioVentaDep = value
        End Set
    End Property

    Public Property precioEstac1() As Decimal
        Get
            Return _precioEstac1
        End Get
        Set(ByVal value As Decimal)
            _precioEstac1 = value
        End Set
    End Property

    Public Property precioEstac2() As Decimal
        Get
            Return _precioEstac2
        End Get
        Set(ByVal value As Decimal)
            _precioEstac2 = value
        End Set
    End Property

    Public Property precioDeposito() As Decimal
        Get
            Return _precioDeposito
        End Get
        Set(ByVal value As Decimal)
            _precioDeposito = value
        End Set
    End Property

    Public Property precioTotalVenta() As Decimal
        Get
            Return _precioTotalVenta
        End Get
        Set(ByVal value As Decimal)
            _precioTotalVenta = value
        End Set
    End Property

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal nroInmueble As String, ByVal valorVenta As Decimal)
        Me.nroInmueble = nroInmueble
        Me.valorVenta = valorVenta
    End Sub
    Public Sub New(ByVal nroInmueble As String, ByVal valorVenta As Decimal, ByVal descuento As Decimal)
        Me.nroInmueble = nroInmueble
        Me.valorVenta = valorVenta
        Me.descuento = descuento
    End Sub
    Public Sub New(ByVal idUndInmob As Int32, ByVal nroPiso As Int32)
        Me.idUndInmob = idUndInmob
        Me.nroPiso = nroPiso
    End Sub
    Public Sub New(ByVal idUndInmob As Int32, ByVal InmueblesDisponibles As String)
        Me.idUndInmob = idUndInmob
        _EmodeloInmueble = New EmodeloInmueble(0, "", 0, InmueblesDisponibles)
    End Sub
    Public Sub New(ByVal idUndInmob As String, ByVal InmueblesDisponibles As String)
        Me.idUndInmob = idUndInmob
        _EmodeloInmueble = New EmodeloInmueble(0, "", 0, InmueblesDisponibles)
    End Sub
    'Public Sub New(ByVal idUndInmob As Int32, ByVal nroInmueble As String)
    '    Me.idUndInmob = idUndInmob
    '    Me.nroInmueble = nroInmueble
    'End Sub
    'Public Sub New(ByVal idUndInmob As Int32, ByVal descTpoInmueble As String, ByVal nroInmueble As String)
    '    Me.idUndInmob = idUndInmob
    '    Me.descTpoInmueble = descTpoInmueble
    '    Me.nroInmueble = nroInmueble
    'End Sub


    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idEdiMzn As Int32, ByVal nomEdiMzn As String, ByVal idUndInmob As Int32, _
                   ByVal idModelo As Int32, ByVal nomModelo As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, _
                   ByVal nroInmueble As String, ByVal nroPiso As Int32, ByVal areaTerrModelo As Decimal, ByVal areaTechada As Decimal, _
                   ByVal areaConstruida As Decimal, ByVal areaVendible As Decimal, ByVal valorVenta As Decimal, ByVal descuento As Decimal, _
                   ByVal dsctoMonto As Decimal, ByVal precioBase As Decimal, _
                   ByVal idMoneda As Int32, ByVal descMoneda As String, ByVal comision As Decimal, ByVal porcAcciones As Decimal, _
                   ByVal precioMCuadrs As Decimal, ByVal idEstadoInmueble As Int32, ByVal descEstadoInmueble As String, ByVal observaciones As String, _
                   ByVal bloqueado As Int16, ByVal estado As String, ByVal areaTerraza As Decimal)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idEdiMzn = idEdiMzn
        Me.EediMazn = New EedificioManz(idEdiMzn, nomEdiMzn)
        Me.idUndInmob = idUndInmob
        _EmodeloInmueble = New EmodeloInmueble(idModelo, nomModelo, idTpoInmueble, descTpoInmueble)
        Me.EmodeloInmueble = New EmodeloInmueble(idModelo, nomModelo, idTpoInmueble, descTpoInmueble)
        Me.descTpoInmueble = descTpoInmueble
        Me.descModelo = nomModelo
        Me.nroInmueble = nroInmueble
        Me.nroPiso = nroPiso
        Me.areaTerrModelo = areaTerrModelo
        Me.areaTechada = areaTechada
        Me.areaConstruida = areaConstruida
        Me.areaVendible = areaVendible
        Me.valorVenta = valorVenta
        Me.descuento = descuento
        Me.dsctoMonto = dsctoMonto
        If Me.descuento > 0 Then
            Me.precioNeto = Me.valorVenta - (valorVenta * Me.descuento)
        ElseIf Me.dsctoMonto > 0 Then
            Me.precioNeto = Me.valorVenta - Me.dsctoMonto
        Else
            Me.precioNeto = 0
        End If
        Me.precioBase = precioBase
        _Emoneda = New Emoneda(idMoneda, descMoneda)
        Me.Emoneda = New Emoneda(idMoneda, descMoneda)
        Me.descMoneda = descMoneda
        Me.comision = comision
        Me.porcAcciones = porcAcciones
        Me.precioMCuadrs = precioMCuadrs
        _EstadoInmueble = New EestadoInmueble(idEstadoInmueble, descEstadoInmueble)
        Me.EestadoInmueble = New EestadoInmueble(idEstadoInmueble, descEstadoInmueble)
        Me.descEstadoInmueble = descEstadoInmueble
        Me.observaciones = observaciones
        Me.bloqueado = bloqueado
        If bloqueado = 0 Then
            Me.descBloqueado = "DISPONIBLE"
        Else
            Me.descBloqueado = "BLOQUEADO"
        End If
        Me.estado = estado
        If estado = 1 Then
            Me.descEstado = "HABILITADO"
        Else
            Me.descEstado = "DESHABILITADO"
        End If
        Me.areaTerraza = areaTerraza
    End Sub

    '-------   MENU CONSULTA STOCK  ------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idEdiMzn As Int32, ByVal idUndInmob As Int32, _
                   ByVal idModelo As Int32, ByVal nomModelo As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, _
                   ByVal nroHabitaciones As Int64, ByVal nroBaños As Int32, ByVal patioJardin As Int16, ByVal areaPatio As Decimal, _
                   ByVal nroInmueble As String, ByVal nroPiso As Int32, ByVal areaTerrModelo As Decimal, ByVal areaTechada As Decimal, _
                   ByVal areaConstruida As Decimal, ByVal areaVendible As Decimal, ByVal valorVenta As Decimal, ByVal descuento As Decimal, _
                   ByVal idMoneda As Int32, ByVal descMoneda As String, ByVal comision As Decimal, ByVal porcAcciones As Decimal, _
                   ByVal precioMCuadrs As Decimal, ByVal idFormaPago As Int32, ByVal tpoGestion As Int32, ByVal idEstadoInmueble As Int32, ByVal descEstadoInmueble As String, _
                   ByVal cliente As String, ByVal observaciones As String, ByVal bloqueado As Int16, ByVal estado As String, ByVal Vendedor As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idEdiMzn = idEdiMzn
        Me.idUndInmob = idUndInmob
        _EmodeloInmueble = New EmodeloInmueble(idModelo, nomModelo, idTpoInmueble, descTpoInmueble)
        _EmodeloInmueble.nroHabitaciones = nroHabitaciones
        _EmodeloInmueble.nroBaños = nroBaños
        _EmodeloInmueble.patioJardin = patioJardin
        _EmodeloInmueble.areaPatio = areaPatio

        Me.descTpoInmueble = descTpoInmueble
        Me.descModelo = nomModelo
        Me.nroInmueble = nroInmueble
        Me.nroPiso = nroPiso
        Me.areaTerrModelo = areaTerrModelo
        Me.areaTechada = areaTechada
        Me.areaConstruida = areaConstruida
        Me.areaVendible = areaVendible
        Me.valorVenta = valorVenta
        Me.descuento = descuento
        _Emoneda = New Emoneda(idMoneda, descMoneda)
        Me.descMoneda = descMoneda.Replace(" ", "&nbsp;")
        Me.comision = comision
        Me.porcAcciones = porcAcciones
        Me.precioMCuadrs = precioMCuadrs
        Me.idFormaPago = idFormaPago
        Me.tpoGestion = tpoGestion
        _EstadoInmueble = New EestadoInmueble(idEstadoInmueble, descEstadoInmueble)
        Me.descEstadoInmueble = descEstadoInmueble
        Me.clienteVenta = cliente.Replace(" ", "&nbsp;")
        Me.observaciones = observaciones
        Me.bloqueado = bloqueado
        If bloqueado = 0 Then
            Me.descBloqueado = "DISPONIBLE"
        Else
            Me.descBloqueado = "BLOQUEADO"
        End If
        Me.estado = estado
        If estado = 1 Then
            Me.descEstado = "HABILITADO"
        Else
            Me.descEstado = "DESHABILITADO"
        End If
        Me.Vendedor = Vendedor
    End Sub

    '-------    MENU SEGUIMIENTO    --------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idSeparacionVentaDetalle As Int32, _
                   ByVal idEdiMzn As Int32, ByVal nomEdiMzn As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, _
                   ByVal idModelo As Int32, ByVal nomModelo As String, ByVal idUndInmob As Int32, ByVal nroInmueble As String, _
                   ByVal nroPartida As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idSeparacionVentaDetalle = idSeparacionVentaDetalle
        Me.EediMazn = New EedificioManz(idEdiMzn, nomEdiMzn)
        Me.EmodeloInmueble = New EmodeloInmueble(idModelo, nomModelo, idTpoInmueble, descTpoInmueble)
        Me.idUndInmob = idUndInmob
        Me.nroInmueble = nroInmueble
        Me.nroPartida = nroPartida
    End Sub

    '-------   MENU ATENCION CLIENTE  ------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idProformaDetalle As Int32, _
                   ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, ByVal idEdiMzn As Int32, ByVal nomEdiMzn As String, _
                   ByVal idModelo As Int32, ByVal nomModelo As String, ByVal nroInmueble As String, ByVal valorVenta As Decimal)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        Me.idProformaDetalle = idProformaDetalle
        Me.EediMazn = New EedificioManz(idEdiMzn, nomEdiMzn)
        Me.nomEdiMzn = nomEdiMzn
        Me.EmodeloInmueble = New EmodeloInmueble(idModelo, nomModelo, idTpoInmueble, descTpoInmueble)
        Me.nomModelo = nomModelo
        Me.descTpoInmueble = descTpoInmueble
        Me.nroInmueble = nroInmueble
        Me.valorVenta = valorVenta
    End Sub

    '-------   MENU ATENCION CLIENTE VERSUS ------'
    Public Sub New(ByVal idEmpresa As Int32, ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idProformaDetalle As Int32, _
                   ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, ByVal idEdiMzn As Int32, ByVal nomEdiMzn As String, _
                   ByVal idModelo As Int32, ByVal nomModelo As String, ByVal nroInmueble As String, ByVal valorVenta As Decimal)
        Me.idEmpresa = idEmpresa
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        Me.idProformaDetalle = idProformaDetalle
        Me.EediMazn = New EedificioManz(idEdiMzn, nomEdiMzn)
        Me.nomEdiMzn = nomEdiMzn
        Me.EmodeloInmueble = New EmodeloInmueble(idModelo, nomModelo, idTpoInmueble, descTpoInmueble)
        Me.nomModelo = nomModelo
        Me.descTpoInmueble = descTpoInmueble
        Me.nroInmueble = nroInmueble
        Me.valorVenta = valorVenta
    End Sub

    '-------   MENU REPORTE INMUEBLES POR ETAPA  ------'
    Public Sub New(ByVal correlativo As Int64, ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idUndInmob As Int32, ByVal nomEdiMzn As String, _
                   ByVal idModelo As Int32, ByVal nomModelo As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, ByVal nroInmueble As String, _
                   ByVal valorVenta As Decimal, ByVal idEstadoInmueble As Int32, ByVal descEstadoInmueble As String, ByVal nroDocumento As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal nroDocumentoCy As String, ByVal nombreCy As String, _
                   ByVal apePaternoCy As String, ByVal apeMaternoCy As String)
        Me.correlativo = correlativo
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idUndInmob = idUndInmob
        Me.nomEdiMzn = nomEdiMzn
        Me.nomModelo = nomModelo
        Me.EmodeloInmueble = New EmodeloInmueble(idModelo, descModelo, idTpoInmueble, descTpoInmueble)
        Me.descTpoInmueble = descTpoInmueble
        Me.nroInmueble = nroInmueble
        Me.valorVenta = valorVenta
        Me.EestadoInmueble = New EestadoInmueble(idEstadoInmueble, descEstadoInmueble)
        Me.descEstadoInmueble = descEstadoInmueble
        Me.nroDocumento = nroDocumento
        Me.Ecliente = New Ecliente(nombre, apePaterno, apeMaterno)
        Me.nroDocumentoCy = nroDocumentoCy
        Me.Econyugue = New Ecliente(nombreCy, apePaternoCy, apeMaternoCy)
    End Sub
    Public Sub New(ByVal correlativo As Int64, ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idUndInmob As Int32, ByVal nomEdiMzn As String, _
                   ByVal idModelo As Int32, ByVal nomModelo As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, ByVal nroInmueble As String, _
                   ByVal valorVenta As Decimal)
        Me.correlativo = correlativo
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idUndInmob = idUndInmob
        Me.nomEdiMzn = nomEdiMzn
        Me.nomModelo = nomModelo
        Me.EmodeloInmueble = New EmodeloInmueble(idModelo, descModelo, idTpoInmueble, descTpoInmueble)
        Me.descTpoInmueble = descTpoInmueble
        Me.nroInmueble = nroInmueble
        Me.valorVenta = valorVenta
    End Sub
    '---------------------------------------'
#End Region

End Class
